﻿Imports System Imports System.Collections.Generic Imports System.Text

Public Class CLuongNhanVien
#Region "Thuộc tính Lương NV"


    Private _maNV As String
    Private _thang As String
    Private _soNgayLam As Integer
    Private _ungTruoc As Double
    Private _soNgayNgi As Integer
    Private _phat As Double
    Private _thuong As Double
    Private _luong As Double
    Private _tinhTrang As Integer
    Private _nNhanLuong As Date
    Private _ghiChu As String
    Public Property maNV() As String
        Get
            Return _maNV
        End Get
        Set(ByVal value As String)
            _maNV = value
        End Set
    End Property

    Public Property thang() As String
        Get
            Return _thang
        End Get
        Set(ByVal value As String)
            _thang = value
        End Set
    End Property

    Public Property soNgayLam() As Integer
        Get
            Return _soNgayLam
        End Get
        Set(ByVal value As Integer)
            _soNgayLam = value
        End Set
    End Property

    Public Property soNgayNghi() As Integer
        Get
            Return _soNgayNgi
        End Get
        Set(ByVal value As Integer)
            _soNgayNgi = value
        End Set
    End Property

    Public Property ungTruoc() As Double
        Get
            Return _ungTruoc
        End Get
        Set(ByVal value As Double)
            _ungTruoc = value
        End Set
    End Property

    Public Property phat() As Double
        Get
            Return _phat
        End Get
        Set(ByVal value As Double)
            _phat = value
        End Set
    End Property

    Public Property thuong() As Double
        Get
            Return _thuong
        End Get
        Set(ByVal value As Double)
            _thuong = value
        End Set
    End Property

    Public Property luong() As Double
        Get
            Return _luong
        End Get
        Set(ByVal value As Double)
            _luong = value
        End Set
    End Property

    Public Property nNhanLuong() As Date
        Get
            Return _nNhanLuong
        End Get
        Set(ByVal value As Date)
            _nNhanLuong = value
        End Set
    End Property

    Public Property tinhTrang() As Integer
        Get
            Return _tinhTrang
        End Get
        Set(ByVal value As Integer)
            _tinhTrang = value
        End Set
    End Property

    Public Property ghiChu() As String
        Get
            Return _ghiChu
        End Get
        Set(ByVal value As String)
            _ghiChu = value
        End Set
    End Property
#End Region

#Region "Hàm khởi tạo đối tuợng"
    Public Sub New()
        MyBase.New()
        maNV = ""
        thang = ""
        soNgayLam = 0
        soNgayNghi = 0
        ungTruoc = 0
        phat = 0
        thuong = 0
        luong = 0
        nNhanLuong = Date.Now
        tinhTrang = 0
        ghiChu = ""
    End Sub

    Public Sub New(ByVal lNV As CLuongNhanVien)
        maNV = lNV.maNV
        thang = lNV.thang
        soNgayLam = lNV.soNgayLam
        soNgayNghi = lNV.soNgayNghi
        ungTruoc = lNV.ungTruoc
        phat = lNV.phat
        thuong = lNV.thuong
        luong = lNV.luong
        nNhanLuong = lNV.nNhanLuong
        tinhTrang = lNV.tinhTrang
        ghiChu = lNV.ghiChu
    End Sub

    Public Sub New(ByVal mNV As String, ByVal thg As String, ByVal sNL As Integer, ByVal sNN As Integer, ByVal uTruoc As Double, ByVal ph As Double, ByVal thuog As Double, ByVal l As Double, ByVal ngayNhanLuong As Date, ByVal tTrang As Integer, ByVal gChu As String)
        maNV = mNV
        thang = thg
        soNgayLam = sNL
        soNgayNghi = sNN
        ungTruoc = uTruoc
        phat = ph
        thuong = thuog
        luong = l
        nNhanLuong = ngayNhanLuong
        tinhTrang = tTrang
        ghiChu = gChu
    End Sub
#End Region
End Class

